home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 2561.ZIP / APB17.ZIP / STRIPHLP.BAS < prev    next >
BASIC Source File  |  1991-02-21  |  588b  |  32 lines
  1. '
  2. ' Program to strip the help file down to pages that can be printed.
  3. ' (c) 1991 Comptech Software and Consulting, Inc.
  4. ' Revisions:
  5. ' 02/21/91 KM Initial coding.
  6. '
  7. open "apb.hlp" for input as #1
  8. open "apb.doc" for output as #2
  9. c$=input$(4,1)        ' bypass the 4 byte header
  10. while 1
  11.     c$=input$(2,1)
  12.     if c$<>chr$(13)+chr$(10) then
  13.             ' end of file
  14.         exit while
  15.     end if
  16.     line input #1,c$
  17.     print c$
  18.     print #2,c$
  19.     while 1
  20.         line input #1,c$
  21.         if c$="*END*" then
  22.             print #2,chr$(12)    ' form feed
  23.             exit while
  24.         end if
  25.         print #2,c$
  26.     wend
  27. wend
  28. close 1
  29. close 2
  30. stop
  31.  
  32.